home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
autooff.zip
/
RBBSSUB5.MRG
< prev
Wrap
Text File
|
1988-10-26
|
3KB
|
91 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB5.BAS to produce D:\LITE\RBBSSUB5.BAS
* RBBSSUB5.BAS: Date 10-2-1988 Size 55407 bytes
* ------------[ Created 10-26-1988 18:26:30 ]------------
* REPLACING old line(s) by new
20162 FOR I = 2 TO QX
A$(I) = B$(I)
NEXT
CALL FMS (Z$,SEARCH.STRING$,SEARCH.DATE$,IN.FMS, _
CATEGORY.NAME$(),CATEGORY.CODE$(),CATEGORY.DESC$(),_
DOWNLOAD.FLAG,CAT.FOUND,LIST.INDEX)
WHILE DOWNLOAD.FLAG > 0 AND SUBROUTINE.PARAMETER > -1
B = 1
GOSUB 20202
IF FILESYS.PARAMETER > 1 THEN _
RETURN
* ------[ first line different ]------
IF DOWNLOAD.COMPLETED AND AUTO.END = 1 THEN _ 'Autologoff Mod
RETURN 'Autologoff Mod
X$ = CATEGORY.CODE$(CAT.FOUND)
CALL DISUPDIR (X$,SEARCH.STRING$,SEARCH.DATE$,DOWNLOAD.FLAG,LIST.INDEX)
CALL CHKTREMAIN (TIME.REMAINING!)
IF SUBROUTINE.PARAMETER = -1 THEN _
FILESYS.PARAMETER = 6 : _
RETURN
CALL CARRIER
WEND
IF SUBROUTINE.PARAMETER = -1 THEN _
FILESYS.PARAMETER = 7 : _
RETURN
FOR I = 2 TO QX
B$(I) = A$(I)
NEXT
ACTIVE.FMS.DIRECTORY$ = ""
IF IN.FMS THEN _
GOTO 20175
IF USER.SECURITY.LEVEL < MIN.SEC.TO.VIEW THEN _
IF FILE.NAME.HOLD$ = UPLOAD.DIR.CHECK$ THEN _
FILE.NAME.HOLD$ = "of uploads" : _
GOTO 20172
FILE.NAME.HOLD$ = B$(LIST.INDEX)
IF LIMIT.SEARCH.TO.FMS THEN _
GOTO 20166
IF FILE.NAME.HOLD$ = "ALL" OR FILE.NAME.HOLD$ = "A" THEN _
SEARCHING.ALL = TRUE : _
DIR.INDEX = LIST.INDEX : _
GOTO 21890
CALL BADFILE (FILE.NAME.HOLD$,BAD.FILE.NAME.INDEX)
ON BAD.FILE.NAME.INDEX GOTO 20163,20172,20176
* REPLACING old line(s) by new
20791 IF PERSONAL.DOWNLOAD THEN _
RETURN
CALL CHKTREMAIN (TIME.REMAINING!)
IF SUBROUTINE.PARAMETER = -1 THEN _
FILESYS.PARAMETER = 6 : _
RETURN
OK = TRUE
IF (INT(BLOCKS.IN.FILE# / 60) + 1) > INT(TIME.REMAINING!) THEN _
A$ = "Not enough time left!" : _
CALL UPDTCALR (FILE.NAME$ + " " + A$,2) : _
CALL QTPUT (A$,1): _
A$ = "" : _
OK = FALSE : _
RETURN
* ------[ first line different ]------
CALL AUTOLOGOFF 'Autologoff mod
CALL CHECKRATIO (TRUE) 'Autologoff mod
RETURN
* REPLACING old line(s) by new
21920 ' EXIT RBBS-PC FILE SUBSYSTEM
END SUB
* ------[ first line different ]------
'******************** INSERTED AUTO.LOGOFF here ******************
'
' $SUBTITLE: 'AUTOLOGOFF - Subroutine to to log off after transfer'
' $PAGE
'
SUB AUTOLOGOFF STATIC
AUTO.END = 0
SUBROUTINE.PARAMETER = 1
A$ = CHR$(7)+"Would you like me to Log you Off after the transfer? (Y/[N]) "+CHR$(7)
CALL QTPUT(A$,0)
A$=""
TURBO.KEY = -TURBO.KEY.USER
CALL TGET
IF NOT YES THEN _
EXIT SUB
AUTO.END = 1
END SUB
'